110 REM
120 PRINT"[147]               ALUNISSAGE"
130 FOR I=1TO2500:NEXT
140 REM
150 PRINT"     ALUNISSAGE LUNAIRE SIMULE"
160 PRINT"     ---------- ------- ------"
190 PRINT"VOULEZ VOUS LES INSTRUCTIONS?"
195 PRINT"         (OUI OU NON)";
200 INPUTA$
220 IFA$="NON"THEN630
620 CLR
630 PRINT"[147]               BONNE CHANCE"
640 FORI=1TO3000:NEXT
650 PRINT"[147]"
670 PRINT"SEC  PIEDS VITESS. CARB. TRACE DISTANCE"
690 T=0:H=500:V=50:F=120
700 IFH>100THEN730
705 PRINT"[147]"
710 PRINTT;TAB(5);H;TAB(12);V;TAB(19);F;TAB(25);"I";TAB((H*3)/20+24);"*"
720 GOTO740
730 PRINTT;TAB(5);H;TAB(12);V;TAB(19);F;TAB(25);"I";TAB(H/24+19);"*"
740 INPUTB
750 IFB<0THEN910
760 IFB>30THENB=30
770 IFB>FTHENB=F
780 V1=V-B+5
790 F=F-B
800 H=H-.5*(V+V1)
810 IFH<=0THEN930
820 T=T+1
830 V=V1
840 IFF>0THEN700
850 IFB=0THEN890
860 PRINT"[147]        *****  PANNE SECHE  *****"
880 FOR I=1TO2500:NEXT
890 PRINTT;TAB(5);H;TAB(12);V;TAB(19);F;TAB(25);"I";TAB(H/24+19);"*"
910 B=0
920 GOTO780
930 PRINT"*****  CONTACT  *****"
940 FOR I=1TO2500:NEXT
960 H=H+.5*(V+V1)
970 IFB=5THEN1000
980 D=(-V+SQR(V*V+H*(10-2*B)))/(5-B)
990 GOTO1010
1000 D=H/V
1010 V1=V+(5-B)*D
1020 PRINT"TOUCHE LE SOL A";T+D;"SECONDE."
1030 PRINT"VITESSE D'ALUNISSAGE=";V1;"PIEDS/SEC"
1040 PRINTF;"UNITES DE CARBURANT DANS LES            RESERVOIRS"
1050 FORI=1TO5000:NEXT
1070 IFV1<=.5THEN1100
1080 IFV1<=2THENGOSUB1420:GOTO1190
1090 GOTO1140
1100 PRINT"[147]  FELICITATIONS!  ALUNISSAGE PARFAIT!"
1110 FORI=1TO2500:NEXT
1120 GOSUB1530
1130 GOTO1190
1140 PRINT"[147] DESOLE, MAIS VOUS L'AVEZ ECRASE ! ! !!!"
1150 FORI=1TO2500:NEXT
1160 PRINT"[147]      DES CONDOLEANCES ADEQUATES"
1170 PRINT"    SERONT ENVOYEES A VOTRE FAMILLE"
1180 FORI=1TO2500:NEXT
1190 PRINT"    UNE AUTRE MISSION?(OUI OU NON)";
1200 INPUTC$
1220 IF C$<>"NON"THEN620
1230 PRINT"[147]    VOUS ETES PLUS SOUS MON CONTROLE"
1240 FORI=1TO2500:NEXT
1250 PRINT"[147]":END
1420 PRINT"[147]           ALUNISSAGE BRUTAL"
1440 FORI=1TO2500:NEXT
1450 PRINT"           A ETE TRES SECOUER"
1460 FORI=1TO2500:NEXT
1470 PRINT"        MAIS TOUJOURS EN VIE....."
1480 FORI=1TO2500:NEXT
1490 RETURN
1530 PRINT"[147]          QUEL EST VOTRE NOM?"
1540 INPUT"          ";MM$
1550 PRINT"[147]     [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
1560 PRINT"     [180]        SATELITTE  LUNE      [170]"
1570 PRINT"     [180]        *********  ****      [170]"
1580 PRINT"     [180]                             [170]"
1590 PRINT"     [180]       BREVET DE PILOTE      [170]"
1600 PRINT"     [180]          DECERNE A          [170]"
1605 PRINT"     [180]                             [170]"
1610 PRINT"     [180]                             [170]"
1615 PRINT"     [180]           ";MM$
1620 PRINT"     [180]                             [170]"
1630 PRINT"     [180]  POUR ALUNISSAGE PARFAIT    [170]"
1640 PRINT"     [180]                             [170]"
1650 PRINT"     [180] NO";INT(RND(1)*899+100);
1652 PRINT"[157]"INT(RND(1)*9);
1654 PRINT"-";
1660 PRINTINT(RND(1)*89+10);INT(RND(1)*9);"   LUNAISON[170]"
1670 PRINT"     [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1680 FOR I=1TO7500:NEXT
1690 RETURN